home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / sapporo / use-clin < prev    next >
Text File  |  1994-10-24  |  2KB  |  42 lines
  1. ;; Allegro common lisp initialization file by Axel Saffran
  2. ;;         December 1, 1992
  3.  
  4. (format *terminal-io* "~%            Hello, ACL world !!~%~%")
  5. (tpl:setq-default top-level:*prompt* "<cl ~d> ")
  6. (tpl:setq-default top-level:*history* 50)
  7.  
  8. (setf (excl:package-lock (find-package 'common-lisp)) nil)
  9. (setf (excl:package-definition-lock (find-package 'common-lisp)) nil)
  10. ;(excl::generate-library-pathnames  "/fzi/robot/saffran/japan/")
  11.  
  12. (format *terminal-io* "~%Loading the CMU-LOOP utility ...~%")
  13. (load "/disk/ROBOT1S4-1H/TEuR/lisp/utilities/cmu-loop.lisp")
  14. (format *terminal-io* "~%... Done~%")
  15.  
  16. (format *terminal-io* "~%Loading the DEFSYSTEM utility ...~%")
  17. (load "/disk/ROBOT1S4-1H/TEuR/lisp/utilities/defsystem-original.lisp")
  18. (format *terminal-io* "~%... Done~%")
  19.  
  20. (format *terminal-io* "~%Loading the CLOS-DATABASE-System-Definition ...~%")
  21. (load "/disk/ROBOT1S4-1H/TEuR/demos/CLOS-DATABASE-Maerz-93/clos-database-system.lisp")
  22. (format *terminal-io* "~%... Done~%")
  23.  
  24. (format *terminal-io* "~%Loading the CLOS-DATABASE-System ...~%")
  25. (mk:load-system 'clos-database :bother-user-if-no-binary nil :compile-during-load t)
  26. (format *terminal-io* "~%... Done~%")
  27.  
  28.  
  29. (format *terminal-io* "~%Loading the SAPPORO-System-Definition ...~%")
  30. (load "/disk/ROBOT1S4-1H/TEuR/demos/Sapporo-April-93/sources/sapporo-all-system.lisp")
  31. (format *terminal-io* "~%... Done~%")
  32.  
  33. (format *terminal-io* "~%Loading the SAPPORO-System ...~%")
  34. (mk:load-system 'sapporo :bother-user-if-no-binary nil :compile-during-load t)
  35. (format *terminal-io* "~%... Done~%")
  36.  
  37. (setf *package* (find-package 'sapporo))
  38. (setf *default-database-directory* "/disk/ROBOT1S4-1H/TEuR/demos/Sapporo-April-93/databases/")
  39. (setf *default-topology-dir* "/disk/ROBOT1S4-1H/TEuR/demos/Sapporo-April-93/topologies/")
  40.  
  41.  
  42.